home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 2 (Reseller) / Apple R&P Lib Reseller v2.0.iso / 3-Demos / Third Party Demos / Information Management / Wingz / SDScript / Script10 (.txt) < prev    next >
Encoding:
Wingz Script  |  1989-06-08  |  5.7 KB  |  203 lines  |  [WZSC/WNGZ]
  1. WNGZWZSC01b1F
  2. Demo10
  3. Putting
  4. WRATT & PITNEY
  5. Commercial Turbines
  6. 1988 Sales
  7.  (In millions of U.S. dollars)
  8. Times
  9.  '88 Total
  10.     JT - 100m
  11.     JT - 200f
  12.     JT - 400b
  13. Times
  14. =sum(C8..F8)
  15. My Chart
  16. My Chart
  17. WRATT & PITNEY 
  18. My Chart
  19. My Chart
  20. My Chart
  21. My Chart
  22. My Chart
  23. My Chart
  24. My Chart
  25. My Chart
  26. My Chart
  27. My Chart
  28. My Chart
  29. My Chart
  30. Arrow
  31. Note Box
  32. Arrow
  33. SDOpen
  34. DoSound
  35. Segwaycall sd:SDOpen("Demo10",1)
  36. call sd:DoSound("Putting")
  37. wait for (sd:Segway * 1.0) seconds
  38. hide fields
  39. Put "WRATT & PITNEY" Into D3
  40. Put "Commercial Turbines" Into D4
  41. Put "1988 Sales" Into D5
  42. Put " (In millions of U.S. dollars)" Into D6
  43. select range D3..D6
  44. Align Center
  45. text font "Times"
  46. select range D3
  47. text size 14
  48. text style "B"
  49. text style "I"
  50. select range D6
  51. text size 9
  52. text size 10
  53. text style "I"
  54. Put "Q1" Into C7
  55. Put "Q2" Into D7
  56. Put "Q3" Into E7
  57. Put "Q4" Into F7
  58. Put " '88 Total" Into G7
  59. Put "JT - 100m" Into B8
  60. Put "JT - 200f" Into B9
  61. Put "JT - 400b" Into B10
  62. Put 177 Into C8
  63. Put 395 Into C9
  64. Put 55 Into C10
  65. Put 151 Into D8
  66. Put 401 Into D9
  67. Put 112 Into D10
  68. Put 139 Into E8
  69. Put 435 Into E9
  70. Put 119 Into E10
  71. Put 101 Into F8
  72. Put 456 Into F9
  73. Put 137 Into F10
  74. select range c8..f10
  75. precision 0
  76. select range C7..G7
  77. Align Center
  78. select range B7..G10
  79. text font "Times"
  80. Put "=sum(C8..F8)" Into G8
  81. select range G8..G10
  82. Copy Down
  83. precision 0
  84. use commas
  85. column width range C1..G50 to 1020
  86. column width range B1 to 1260
  87. row height range B3 to 340
  88. select range D3
  89. text color Red()
  90. select range B7..B10
  91. select more range C7..G7
  92. text style "B"
  93. Unselect Add Chart Range frac(A11..H24,106,159,170,186) Using B7..F10
  94. object name "My Chart"
  95. repaint off
  96. select range D3..D4
  97. select more object "My Chart"
  98. Title Range
  99. select range D3
  100. Put "WRATT & PITNEY " Into D3
  101. select object "My Chart"
  102. Object Size frac(A2..I24,128,159,170,114)
  103. square corners
  104. no drop shadow
  105. no line border
  106. shadow fg 0
  107. shadow bg 16777215
  108. shadow pattern 1
  109. border x offset 1 points
  110. border y offset 1 points
  111. shadow strength 255
  112. select chart "My Chart" plot
  113. square corners
  114. no drop shadow
  115. no line border
  116. shadow fg 0
  117. shadow bg 16777215
  118. shadow pattern 1
  119. border x offset 1 points
  120. border y offset 1 points
  121. shadow strength 255
  122. select object "My Chart"
  123. square corners
  124. 2d drop shadow
  125. double line border
  126. shadow fg 0
  127. shadow bg 16777215
  128. shadow pattern 1
  129. border x offset 6 points
  130. border y offset 6 points
  131. shadow strength 255
  132. select chart "My Chart" all series
  133. line fg 0
  134. line bg 16777215
  135. line pattern 1
  136. line width 40
  137. select chart "My Chart" series 1
  138. line fg 255
  139. line pattern 2
  140. line width 60
  141. symbol color 255
  142. symbol width 40
  143. symbol type 1
  144. symbol size 12 points
  145. select chart "My Chart" series 2
  146. line fg 16711680
  147. line pattern 5
  148. line width 60
  149. symbol color 16711680
  150. symbol width 40
  151. symbol type 3
  152. symbol size 12 points
  153. select chart "My Chart" series 3
  154. line fg rgb(50,150,50)
  155. line pattern 6
  156. line width 60
  157. symbol color rgb(50,150,50)
  158. symbol width 40
  159. symbol type 6
  160. symbol size 12 points
  161. select chart "My Chart" axis 1
  162. show axis line
  163. show axis
  164. axis major grid fg 16711680
  165. axis major grid bg 16777215
  166. axis major grid pattern 0
  167. axis major grid width 5
  168. select range D3..D6
  169. select more object "My Chart"
  170. Title Range
  171. select chart "My Chart" title
  172. no line border
  173. fill pattern 0
  174. select chart "My Chart" plot
  175. no line border
  176. fill pattern 0
  177. select object "My Chart"
  178. fill bg rgb(250,250,200)
  179. Unselect Add Polyline  frac(H8,1,145,1,145),
  180.     frac(H11,234,59,234,59),
  181.     frac(F12,191,130,191,130),
  182.     frac(F15,213,105,213,105),
  183.     frac(G17,106,45,106,45)
  184. object name "Arrow"
  185. polyline
  186. poly smoothing on
  187. line fg rgb(50,150,50)
  188. line bg 16777215
  189. line pattern 1
  190. line width 60
  191. single arrow
  192. arrow length 13 points
  193. select object "Note Box"
  194. bring to front
  195. select object "Arrow"
  196. bring to front
  197. show notes
  198. unselect
  199. repaint on
  200. repaint window
  201. wait for (sd:Segway * 2.0) seconds
  202. close now
  203.